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10 CLEAR :WAIT 1: DIM AS$(0)*21,Z$(21)*1:A$(0)= "YRREMSMAXY PPAHWENRAEY" 
20 B=1:C=5:GOSUB 99: B=6:C=9: GOSUB 99:B=10:C= 14:GOSUB 99:B=15:C=17:GOSUB 99 
25 B=18:C=21: GOSUB 99:T$="YEAR": :Q$= "XMAS":RS$="HAPPY": P$="MERRY":SS="NEW" 
30 N=(US= P$)+(V$= :Q$)+(W$= R$)+(X$= S$)+(Y$= T$):D= =(Z$(1)="M"): E=(Z$(10)="H") 

35 FOR M=0TO N+23"(N=5):BEEP 1,RND 64:NEXT M:L$= CHR$ 32 

40 IF U$<>P$FOR J=1+DTO 5:R= D+RND (5-D):K$=Z$(J): Z$(J)= Z$(R):Z$(R)=KS$: NEXT J 
41] IF V§>Q$FOR J=sTO 9:R=5+RND 4:K$= Z$(J): Z$(J)= -Z$(R):Z$(R)=K$:NEXT J 

42 IF W$OORSFOR J=10+ETO 14:R=9+E+RND (5-E):K$=Z$(J): Z$(J)=Z$(R):ZS(RJ=KS:NEXT J 
43 IF X$<>S$FOR J=I5TO 17:R=14+RND 3:K$=ZS(J):Z$(J)= Z$(R): Z$(R)= K$:NEXT J 
44 IF Y$<>T$FOR J=18TO 21:R=17+RND 4:K$=Z$(J): Z$(J)= Z$(R):Z$(R)=K$:NEXT J 
51 FOR F=21TO 25:@$(F)=CHR$ 0:NEXT F:FOR G=ITO 5:U$= U$+Z$(G): NEXT G 

93 FOR G= =6TO 9: :V$=V$+Z$(G): NEXT G:FOR G=10TO| 14:W$= W$+Z$(G): NEXT G 

55 FOR G= -15TO 17:X$= -X$+Z$(G): NEXT G:FOR G=18TO 21:Y$=YS+Z$(G):NEXT G 

57 PRINT US;L$;V$;"-";W$;L$;XS;L$;Y$:GOTO 30 

99 FOR A=BTO C: Z$(A)= MID$ (A$(0),A,1):NEXT A:RETURN 
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112 SHEEP ON THE MOUNTAIN 
Dear Reader - Thank you for your support over the past year. Whether 
you are one of those who have laboured to write long technical articles, 
or sent in programs or notes or queries, or just ‘supported the 


newsletter with silent appreciation = whether you live in these 
islands, or far away across the globe, let me wish you 


A VERY HAPPY XMAS AND NEW YEAR! 


Ap a ce 
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SIGNALS - LETTER FROM DENMARK 


October 23, 1984 

Mr. Ronald Cohen 

62 Blenheim Crescent 
London W. 11 

England 

Dear Sir, 


I am very puzzled concerning your remark on page 79 of the 


October 1984 issue. Did you read my note concerning the newsletter, 


dated 22.8.84, or what ?? 


It is very sad that you seem to misunderstand me. Am I not 
expressing myself very clearly ? I did not mention anything 
about a CaSIO TX500 which does not excist, but I did mention 
that I now own a CASIO FP-200. Maybe you should check your new 
printer or maybe the printer will choke on anything other than 
the SHARP PC-1500 7??? 


I am still using my PC-1500 dayly. It is a beautiful machine. 
I like reading your newsletter which is an inspiration to me 
when developing new programs, although not programs for my 
PC-1500 owing to its small display. 


My suggestion that you should consider expanding the newsletter 
was inspired by your remark on the front page of the June 1984 
issue concerning the new subscribers. I think it sad if you are 
to discontinue the newsletter. 


Have you read about the dinosaurs? They are all dead now. As I 
am informed they stopped evolving and were not able to adapt. 
I think that you are very concerned about solving todays 
problems with yesterdays computer technology only. 


De you think that all new computer buyers will buy the PC-1500 
when the PC-1261 (10 K) and PC-1350 are now available ? 


I am aware that new computers cost money and as I am not rich 
myself I have been forced to find some firms in Western Germany 
where I can buy my computers at a 30-40% discount compared to 
the Danish prices. The English prices are higher too. 


I am sorry to disappoint you = aGAIN = to suggest that you 
might expand your newsletter which, I think, is of general 
interest to any computer fan. 


I did not intend to step on a sore toe, nor do I wish you to 
write about my machine in particular. 


I suggest that cg read the Aémerican PORTABLE COMPUTER to see 
how much portable computers are evolving. 


Thorkil Ane 
8900 Randers 
Denmark 


Do not sell this PDF !!! 


99 


62 BLENHEIM CRESCENT, LONDON W.11 
30 october 84 
Dear Mr Rasmussen 
I am sorry I misquoted the code number of your latest new computer. 


You are quite right in supposing that my printer cannot be driven by 
other machines that do not possess the necessary parallel interface. 


I am gratified that you still find my newsletter useful. However | must 
emphasise that it is a newsletter for the PC 1500, and one of the main 
reasons for its success is my possession and use of the machine I am 
writing about. It would be quite easy to run a superficial magazine on 
portable computers in general, and this might attract new subscribers. 
Whether it would hold them might be another matter. Those who cannot 
remain constant to a machine are unlikely to remain constant to a 
publication. 


But time and space would then prevent me from continuing to explore the 
PC 1500 in depth, which is the object of STATUS 1500. 


I note your remark about dinosaurs. However the PC 1500 is evolving; 

the MEO/ME1] memory structure gives plenty of scope for further evolution; 
and while it continues to be in use I shall continue to explore its 
potential. When this is exhausted, perhaps I may consider writing 

about your latest toy, if indeed I can keep up with the vagaries of fashion. 


You say I am trying to solve todays problems with yesterdays technology. 
Nothing of the sort! What I am trying to do is make the best use of the 
computer I have got, with the kind help of those subscribers to this 
newsletter who send information or programs or interesting queries 

about the PC 1500 for our mutual enlightenment, or amusement. 


It is surely all a question of perspective. You look back on the 
dinosaurs with contempt, but you forget that they roamed this planet 
contentedly for a good few million years. Do you really think that 
pocket computers - or even pockets - will last as long? And when we 
become extinct, may it not well be because we develop new technology 
faster than we learn how to handle it? 


yours sincerely 


100 
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PEEK POKE & MEMORY - XxXI 
A Ghost Program 


It was midnight on Hallowe'en. The last innocent, whining "Trick or treat?" 
had been kicked down the front steps. All was quiet now. Idly, I 
switched on the computer. To my amazement, onto the screen flashed: 


HELP! 
I AM TRAPPED IN COMPUTER 


I looked at the machine. I picked it up and shook it gently. Nothing 
rattled. 1 looked inside. Nothing there. I tried to switch to PRO mode 

to LIST the program. This was not easy, since somehow the computer was 
already in PRO mode. But the only LISTing found was a single line: 


1: REM *THIS IS A GHOST PROGRAM 


Baffled, I tried to RUN the program again. This time the message on the 
screen said: 


////TOO LATE! 


Sc I LISTed the program again. Now it had disappeared. Nothing at all. 
I promise, never again will I kick a child down the steps on Hallowe'en! 


If you wish to try this program yourself, you will need to take a 
little care. Do not MERGE or mix it with another program. Make sure 
the length of each line is correct. Take care not to put an extra space 
after the REM in line 50. After you have experimented with the program, 
you will need to rehabilitate the program area by NEW O. 


10 ARUN :X=STATUS 2-STATUS 1:RESTORE Sf:P=PFFK 3NAR6:Q=PEEK 3N887-3 
20 BEEP 7:PAUSE "~--HELP!":PAUSE "I AM TRAPPED IN COMPUTER" 

30 POKE X+169,01:POKE X+170,78:POKE X+000,00:POKE X+000,00 

40 POKE 30821,P,Q:POKE 30287,35:END 

50 REM *THIS IS A GHOST PROGRAM 

60 REM 

70 PAUSE "////TOO LATE!":POKE 30823,PEEK 30821,PEEK 30822 


STATUS 1 = 250 


zs eee 


Iam an idiot. At least, that is what I said to myself the other day. 

I had been driven almost to despair by a frustrating problem, and all 

the time the solution was staring me in the face. I was having 
cassette-recorder trouble. (Nothing to do with the machinery - the 

fault was traced eventually to an unstable cable connection). But 
meanwhile I had a very long program which it was essential to record. 
And every time I succeeded in CSAVEing part of the program, but not all. 
So why not do exactly that! 


I divided the program into sections, and recorded each one by GSAVE M. 
I did each section twice, so that if there was a fault I could use the 
back-up. Since even this might fail, | located the beginnings of lines 

‘at suitable points, using PEEK 30885 and PEEK 30887 to find them: thus 
each section would start at the beginning of a line, making it easier 

to write in any lines totally missing. It took a little time, but 

nothing like as long as CSAVEing and CLOAD?ing over and over again. In 
the event, it worked perfectly: I only had to use one back-up section. 

I also of course noted the pointers 30821 to 30826, so that I could 
re-insert them on reloading the program by sections. 
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* DRAW POKER * by F.C.Odds 


A pair, 2 pairs, 3 of a kind, a straight (consecutive numbers), a 
flush (all the same suit), a full house (3 of a kind and a pair), 4 of 
a kind, a straight flush. These are the winning hands at Poker. Can 
you beat the bank? The pay-off is evens on a pair (Jacks or better), 
2 to 1 on 2 pairs; 3 to 1 on 3 of a kind, and so on. 


Initiate by RUN. When your hand is displayed, you may draw further 
cards to improve your hand. Hold any card you wish to keep, dy 
pressing the function key under that card. You may keep all 5 cards if 
you wish. Cancel the hold, if you change your mind, by the right-hand 
function key under ‘hold?'. Then choose again. Press ENTER to fill your 


hand. 


The cards are not unlimited, but dealt from a pack of 52 cards, 


so it can help to remember what has been dealt. Play on until your 
winnings are lost, or keep them by staking $0 in reply to the prompt. 


10 
30 


RANDOM :WAIT 150:DIM A(4),B(4),C(4),D(4),A$(1)*30,B8$(3),C$(13)*14 

PRINT " *** DRAW POKER ***":R=1:P=0:S=100 
B$(0)="000E1F 3F 7E3F 1FOE" :B$(1)="00185C7E7F 7E5C18" 

B$(2)="0008104A774A1C08" :B$(3)="00081C3E7F 3E1C08" 

C$(1)="701211127C0000" :C$(2)="42615149460000" :C$(3)="41494D4B310000" 
C$(4)="1814127F 100000" :C$(5)="27454545390000" :C$(6)="3C4A4949300000" 
C$(7)="01017905030000" :C$(8) ="36494949360000" :C$(9)="064949291E0000" 
C$(10)="043E001C22221C" :C$(11)="2040413F010000" 
C$(12)="3E4151215E0000" :C$(13)="7F 081422410000" 

A$(0)="00007F 7F 7F 7F 7F 7F 7F 7F 7F 7F 7F 7F 7F" :A$( 1 )="O0000000000000000000000000 
PRINT "You have $100 to stake":GOSUB 900 { oo000 
INPUT "Stake this deal? ";S1:IF S1=OGOTO 1600 ne 
S1=INT Sl:IF (S1>S)+(S1=0)PAUSE "***IMPOSSIBLE!***":COTO 100 

WAIT :PRINT "Press <ENTER> for deal":P=0:CLS :WAIT 10 

FOR K=0T0 4:D(K)=0:GCURSOR (8+23*K):GPRINT A$(O);:NEXT K 

GOSUB 1000:WAIT 2:GOSUB 1100 

WAIT O:CURSOR 21:PRINT "hold?":K=0 

GCURSOR (8+23*K):IF D(K)GPRINT A$(1); 

AG$=INKEY$ :IF A$<>""GOTO 400 

GCURSOR (8+23*K):GPRINT C$(C(K));B$(B(K)); 

K=K+l:IF K=5LET K=0 

GOTO 260 

Y=ASC A$:BEEP 1,7*ABS (Y-16),300:IF (Y>22)+(Y<13)GOTO 260 

IF Y=13GOTO 500 

IF Y=22G0TO 450 

IF Y>16LET D(Y-17)=1 

GOTO 260 

FOR K=OTO 4:D(K)=O:NEXT K:GOTO 260 

WAIT 2:FOR K=OTO 4:IF D(K)GOTO 540 

GCURSOR (8+23*K):GPRINT A$(O); 

NEXT K 

GOSUB 1000:GOSUB 1100:E=1:F=0:G=0:H=0:WAIT 150 

FOR K=OTO 4:IF B(1)<>B(K)LET E=0 

NEXT K 

F=C(0)*C(1)*C(2)*C(3)*C(4) sG=C(0)+C(1)+C(2)+C(3)+C(4) 

IF (F=17160)*(G=47)LET H=5 

IF (F=720)*(G=20)LET H=1 

IF (F=2520)*(G=25)LET H=1 

IF (F=6720)*(G=30)LET H= 
IF (f=15120)*(G=35)LET H 
IF (F=30240)*(G=40)LET H 
IF (F=55440)*(G=45)LET H 
IF (F=95040)*(G=50)LET H 
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POKER continued 


658 IF (F=154440)*(G=55)LET H=1 

660 IF HGOTO 730 

670 F=0:FOR K=0TO 3:FOR J=K+1T0 4 

700 IF C(K)=C(J)LET F=F+1 

710 NEXT J:NEXT K 

730 IF E*HLET P=50*H:GOTO 800 

740 IF ELET P=5:GOTO 800 

750 IF HLET P=4:GOTO 800 

760 IF F=6LET P=25:GOTO 800 

770 IF F=4LET P=7:GOTO 800 

780 IF F=3LET P=3:GOTO 800 

790 IF F=2LET P=2:GOTO 800 

795 IF F=1GOSUB 1200 

800 FOR K=1TO 100:NEXT K 

805 CLS :IF P=O0GOTO 840 

810 BEEP 2:P=P*S1:PRINT "You have won $";P:S=S+P:GOTO 850 
840 S=5-S1l 

850 PRINT "You now have $";S 

360 IF S=0GOTO 1500 

385 IF R>42GOSUB 900 

890 GOTO 100 

900 POKE# 61447,67 

910 Z=STATUS 2+2:PRINT "PACK BEING SHUFFLED..." 
915 FOR K=1TO 52:POKE (Z+K),O:NEXT K 

920 FOR K=1TO 52:BEEP RND 3,7,5 

930 X=RND 52 

940 IF PEEK (Z+X)GOTO 930 

950 POKE (Z+X),K:NEXT K 

970 R=1:POKE# 61447,0:RETURN 

1000 FOR K=0TO 4 

1010 IF D(K)GOTO 1050 

1020 A(K)=PEEK (2+R):R=R+1 

1040 B(K)=INT ((A(K)-1)/13):C(K)=A(K)-13*B(K) 
1050 NEXT K:RETURN 

1100 FOR K=O0TO 4:J3=84+23*K 

1.10 IF D(K)GOTO 1130 

1.20 BEEP 1,3, (1000/3+10) 

1130 GCURSOR J:GPRINT C$(C(K)) ;B$(B(K)); 

1140 J=J+23:NEXT K:RETURN 

1200 FOR K=0TO 3 

1210 FOR J=K+1TO 4 

1220 IF (C(K)=C(J))*(C(K)>10)LET P=1 

1225 IF (C(K)=C(J))*(C(K)=1)LET P=1 

1230 NEXT J:NEXT K:RETURN 

1500 PRINT "You are broke..." 

1510 PRINT "tough! !":GOTO 1610 

1600 IF S>1OOPRINT "You came out ahead!":wAIT 200:PRINT “You won $";S-100: 
1610 S4=100-S:PRINT "You lost $";54 [Goto 1630 
1620 PRINT "It could have been worse!" 

1630 IF PEEK 40960<>255GOTO 4000+2000*SGN (S-100) 
1640 END 

2000 LPRINT "you lost $";54:END 

4000 LPRINT "you broke even! ":END 
6000 LPRINT "you won $";S-100:END 


STATUS 1 = 2685 approx. 
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SPACE LANDER by Tony Willman 


"A"CLS :WAIT 150:PRINT "SPACE LANDER by T Willman" 
PRINT "Fuel & oxygen are limited":BEEP 1 

PRINT "To burn fuel, press SPACE":BEEP 1 

REM SET UP VALUES 

CLEAR :A=5:L=3:B=1:B$="63223E361C08":C$="6B2A3E361C08" 
D$="7C6B7752776B7C" 

D=775:F =44-5*B:V=5-RND (2*B):0=44-5*B:WAIT 0:RANDOM 
REM SET UP SCREEN 

CLS :GCURSOR 42:GPRINT "724565454200552A557F"; 

FOR X=0TO 45-5*B:GCURSOR X 

GPRINT "7F";:NEXT X 

REM MAIN ROUTINE 

AS=INKEY$ 

IF A$=" "AND F>OAND O>0GOTO 500 

V=V+1:Z=2 

E=D:D=D-V 

IF D<265LET D=264:IF V>ALET Z=4 

E=INT (E/5):IF E>155LET E=155 

GCURSOR F:GPRINT (&4FAND POINT F) 

GCURSOR O:GPRINT (&79AND POINT O) 

GCURSOR E:GPRINT "000000000000";:IF D>775GOTO 190 
GCURSOR INT (D/5):GPRINT @$(Z); 

O=0-0.2*(O>0):IF D>=245BEEP 1,14+5*F,2:GOTO 90 

REM LAND ROUTINE 

IF V>AOR O<=0GOTO 300 

BEEP 10,20,200:WAIT 150:CURSOR 0:PRINT "Well done, you have landed” 
A=A-1:IF A>2-(B>3)PRINT "It is now harder!":S=S+20*(4-A)-F:GOTO 40 
REM END OF STAGE ROUTINE 

PRINT "Congratulations. You have":BEEP 5 

PRINT "completed stage No.";B 

A=6-B:B=B+1:IF B<SLET L=L+1:GOTO 40 

REM GALACTIC CHAMPION ROUTINE 

PRINT " You are now a....":BEEP 2 

PRINT "***GALACTIC CHAMPION***":BEEP 5:GOTO 350 
REM LOSING ROUTINE 

BEEP 10,200,50:WAIT 150:CURSOR 0:PRINT "Hard luck, you have" 
IF O<sOPRINT " run out of oxygen, and.." 

PRINT " «eCRASHED...":BEEP 1,217,483 

L=L-I:IF L>OGOTO 40 

PRINT "You scored";INT S;" points" 

END 

V=V-1:Z=3:F=F-0.5*(F>0):BEEP 1,255/(ABS V+1),90:GOTO 120 


STATUS 1 = 1286 
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QUIZ 


1) So what does it say on the back of your PC 1500? 


You know the words by now - 
but what about the numbers? 


2) What will you find in PEEK 30819? 
3) What is the simplest sort of sort? 


4) What do 30900, 30901, 30898, 30899 
and 30875 have in common? 


5) What do Gerhardt and Cornelia do on Sundays? 


6) What does SHIFT/CLEAR do? 


7) What happened to IAN TRAYNOR's cat last Xmas? 


8) Why does the editor get so cross 
when you use the variables 1 and O? 


9) What are between 31200 and 31208? 


10) Is it best to turn your computer off, 
or let it turn itself off? 


11) Why is BASIC misleading? 
12) What can you do with CHR$ 162? 
14) AOl, A03, AO4 - which is which? 


13) Distinguish between GOTO "A 
and GOTO "A 


15) 1 - 3-5-7 - St. Andrew or St. George? 


16) INPUT "prompt?";A 
or INPUT "prompt?",A 
~ does it matter? 


17) How do you get ERROR 28? 
18) And ERROR 15? 
19) What was unjustified? 

) 


20) What was "the best excuse yet?" 


SCORE: 5 for each correct answer. 
4 for each wrong answer. 


Look and see. 


See page 6] 


page 65. 


page 


3 for "don't know". (After all, its Xmas!) 


SCORE CHECK: 98 - 100 Sure you did not cheat? 


87 - 95 Fantastic! 


78 - 84 You are too impetuous. 
60 - 76 Average reader. 
below 60 Add up your score again. 


ABSOLUTELY NO PRIZES! 
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SKI-RUN 


Tracks in the snow through the pinewoods. Trudge back to the start for 
another downhill run. The slopes are littered with fallen skiers, and 
pocket computers. The track is 500 in length. 


Rules: your run is disqualified if a) you hit a tree or b) go 
over a precipice at the edge or c) miss the finishing line or d) hit a 
marker post or e) start before the 'GO' signal or f) cross the line so 
fast that you hit the spectators in the stand behind the line. 


Controls: 


Operation: 


Initiate by RUN. 

DEF N gives a new course. 

DEF A gives another run on the same course. 
DEF C restores the "READY?(=)" prompt. 
DEF G gives ‘reverse linefeed'. 


There are 2 options, Easy(E) and Hard(H). 'Hard' gives 

on average shorter start and finish lines, more trees, 

larger trees, more obtrusive marker posts. When the run has 
been delineated, the pen returns to near the start line. The 
prompt 'READY?(=)' appears. Use the 4 cursor keys to 
position the pen exactly on the START line, as desired. When 
equal to the fray, key '='. Enter 'speed' and ‘acceleration’ 
For novices, speed 10 and acceleration 1 are recommended. 
Wait 10 seconds. Then you will see - 5 - 2 - 1 - GO. 


Use the 6 function keys to move. You see on the display 
something like: 


1 10 0.0001 1 


The first 'l' indicates curvature to right. '-' for curve left. 
'10' indicates speed. 

‘0.0001' is elapsed time in seconds. 

'l' on the far right indicates rate of acceleration. 


The cross-movement is not measured by angle, but by 

absolute movement across. This amount increases, each move. The 
right-hand function key adds 5 each time to the X value. 

(X value is the amount across). The left-hand function key 
subtracts 5. The innermost keys add and subtract 1 

respectively. The intermediate keys add or subtract 3. 

Remember, the 3 right-hand keys ADD, for movement to the right: 
the 3 left-hand keys subtract, for movement to the left. BUT 

if you are swerving sharply. to the right the opposite key will 

not immediately change direction: it will first gradually 

correct to ahead, before going the other way. Remember also 

the proportion of curve depends on speed: the higher the speed, 
the less the angle. 


While running, you may alter acceleration value by number 

keys 1 to 9. You may DECELERATE by keying '-', and the 
acceleration value will become a deceleration value. Restore 

to acceleration by '+' key. In emergency number key 'O' will 
slither to a halt, allowing speed and acceleration to’ be 

reset; but there will be a slight delay before you can move 

off again. At the end of each run, key ENTER to return to 
starting area. It sounds more complex than it is, but the 
Operational controls are quickly learnt. Neverthcless smooth fast 
runs are by no means easy. 


Happy skiing! 
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SKI-RUN - the program 


"N"CLEAR : TEXT :GRAPH :H=0:E=1:GLCURSOR (0,-800):SORGN 

INPUT “easy(E)or hard(H)?";Q:BEEP 1+Q,30,60 

A=RND 210:B=RND 210:C=RND 210:D=RND 210 

IF ABS (A-B)<(20*Q+49)0R ABS (C-D)<(20*Q+49)GOTO 10 

CSIZE S:LINE (A,0)-(8,3),0,3,8 

LINE (€,500)-(D,500),0,3:POKE 31204,0:LINE (0,590)-(210,610),1,3,8 
GLCURSOR (C,4804+10*Q):LPRINT "“#":GLCURSOR (D,4804+10*Q):LPRINT "“#" 
GLCURSOR (A,-10):LPRINT "#":GLCURSOR (B,-10):LPRINT "#" 

COLOR 2:FOR F=1TO 11+RND 10-6*Q:CSIZE 4+RND 5-4*Q 

GLCURSOR (RND 210, 30+30*Q+RND (410-30*Q)):LPRINT "*":NEXT F 
GLCURSOR (0,0):GOSUB 8030 

TEXT :GRAPH 

"C"GLCURSOR (X,Y¥):ON ERROR GOTO 910 

BEEP 1,15,30:WAIT O:PRINT "ready?(=)":GOTO 1000+ASC INKEY$ 
X=X-1:GOTO 920 

Y=Y-1:GOTO 920 

Y=Y¥+1:GOTO 920 

X=X+1:G0TO 920 

"="3X=0:Y=S:T=0:SORGN :POKE 31204,0,1:GOTO 1990 

GOSUB 8070:USING :TIME =sO:WAIT O:K=ASC INKEY$ :T=0 

IF TIME <.OO1OBEEP 1,1,1:PRINT "."3:G0TO 2005 

BEEP 1,70,200:CURSOR 9:PRINT "“S":TIME =0 

IF TIME <.0003G0TO 2025 

BEEP 1:CURSOR 9:PRINT "2" 

IF TIME <.0004GOTO 2035 

BEEP 1:CURSOR 9:PRINT "J 

IF TIME <.O0005GOTO 2045 

K=ASC INKEY$ :IF K<>OSTOP 

BEEP 1:CURSOR 9:PRINT "GO": TIME =0:X=O0:Y¥=S:Fel:IF VsOLET V=l1 
ON ERROR GOTO 3000:WAIT O 

PRINT X;Y;TIME ;" "s;V*F:GOTO 3000+ASC INKEY$ 

X=X-5:G0TO 3100 

X=X-3:GOTO 3100 

X=X-1:G0TO 3100 

X=X+1:GOTO 3100 

X=X+3:GOTO 3100 

X=X4+5:GOTO 3100 

Fol:BEEP 1,25,95:GO0TO 3000 

F=-1:BEEP 2,25,95:GOTO 3000 

BEEP 9,25,20:RLINE -(X/2,Y/2),1:GOSUB 8070:X=0:Y=S:F=-1:GOTO 3000 
V=1:GOTO 3099 

V=2:GOTO 3099 

V=3:GOTO 3099 

V=4:GOTO 3099 

V=5:GOTO 3099 

V=6:GOTO 3099 

V=7:GOTO 3099 

V=8:GOTO 3099 

V=9:GOTO 3099 

BEEP 2,10,90:GOTO 3000 

Y=Y+V*F:IF ABS Y<1ILET Y=SGN Y 

RLINE -(X,Y),L:T=T+Y¥:POKE 31204,0,1 

If T>SOSWAIT :TM=TIME :USING "##.####"=: PRINT TIME :USING :GOTO “A" 
GOTO 3000 

"A'CLS :SORGN :GLCURSOR (0,-1):X=0:Y¥=0:T=0:F=0:V=0:SORGN 

POKE 31204,0,1:N=N+1 

INPUT "clear run?(*/0)"3P$:1IF P$<>"*"LET P$=CHR$ 32 

CSIZE 2:W=X-PEEK 31206 ; 

GLCURSOR (W,-25*N):GOSUB SO90:LPRINT TM$;P$;CHRS (82-2*(L=7)) 
GLCURSOR (W,-100-25*N):BEEP 12,12,60:GLCURSOR (W,-20):POKE 31204,0,1 
TEXT :GRAPH :GOSUB 8030:USING :TIME =0:GOTO 920 

"G"POKE 31204,0,1: TEXT :LF -8:GRAPH :END 

R=0:P=7: INPUT “color";C:COLOR C:INPUT “practise(P)or RACE(R)?";L:RETURN 
INPUT "speed? ";S:INPUT "acceleration? ";V:RETURN 

TM$=STR$ T™M 

IF LEN TM$<6LET TM$=TM$+"0":GOTO 8091 

RETURN 


STATUS l= 1809 
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MINDBOGGLE CORNER 


Our Xmas competition is for a self-portrait, using the CE 150. You could 
use the sketch program in the TANDY Games Cassette, or our own 
SUPERSKETCH (vol.1, page 99), or any program you prefer. Not in color, 
please. We would very much like to see what you all look like - or what 
you think you look like! We would particularly welcome entries from all 
those whose names have appeared in the newsletter over the past year. 
Portraits may be realistic, or symbolic, as you prefer. 

* Deadline: 15th January 1985. 


Thank you for responding so nobly to my plea for entries for the 5-liner 
competiticn. At the last minute a splendid collection of games and 
entertainments was received. C.P.UNDERWOOD sent 2 entries, while 
JOHN WARNER sent no less than 4! He narrowly missed the prize, but 
expressions such as IF...THEN GOTO... were thought to be so contrary to 
the spirit of economy which inspired the competition that - regretfully - 
he was relegated to 2nd place. Such expressions may be good grammar 
but they cre appalling BASIC. DAVID RIHOY originally sent his entry 
with 3 pages of rules and explanations: he has condensed these down to 
a few lines, and I have difficulty playing the game. You may be 

brighter than I am. NUMBER? by L.E.SIMONS was a strong contender, 
and I am slightly ashamed of my preference for the less scientific 
RANDOM RANDOM by C.P.UNDERWOOD, despite the random explanations 
which accompany it. 


The clear winner is GOLF by TONY WILLMAN. The program is entirely 
self-contained and self-explanatory, and has a fair balance of skill and 
chance. Below and overleaf are printed a selection from the games and 
entertainments sent in. 


POT THE PIGS by John Warner 
& their revenge 


Display indicates current pig number, shots remaining for current pig, 
pigs shot. Fire by keying *. Don't let them get away! 


1 P=O:FOR Y=1T0 9:FOR Z=3610 132STEP 2:IF Y=9GCURSOR Z:PRINT "-":BEEP 1,9,9:GCURSOR Z+1:PRIN 
T * *":NEXT Z:WAIT :PRINT :END 

2 A$=INKEY$ :GCURSOR 135:GPRINT "0818507B1F 3C78602040":0N ERROR GOTO 2:W=5:FOR X=120T0 25STE 
P -1:WAIT W 

3 CURSOR 24:PRINT P:IF INKEY$ ="*"AND W>=1THEN GOSUB 5:CURSOR O:PRINT W;Y:IF T=X+l1THEN GCUR 
SOR X:WAIT 25:PRINT “**":P=P41:WAIT O:NEXT Y 

4 GCURSOR X:GPRINT "O6060D0F 3ESELE1ESE3CO4",:GCURSOR X-1:GPRINT "“O6060D4F 3E1E1E1E1E7C040",:N 
EXT X:NEXT ¥:END 

5 RANDOM :WAIT O:BEEP 1,25,50:FOR T=123T0 X+9+RND SSTEP -1:GCURSOR T:PRINT "= ":NEXT T:GCURS 
OR T:PRINT "*":W=Wel:RETURN 


NUMBERS GAME by L.E.Simons 


Choose maximum from which computer picks random number. Then guess 
number computer has picked. Guessing halfway ("binary chop") is 
quickest method. Where max.<2AN, approximately N guesses should suffice. 
Finally, the mean and variance indicate closeness of quessing. 


5000 "G"RANDOM :CLS :A$="Small":8$="Large":WAIT O:K=0:S=0:S2=0:N=1: INPUT "Max:";M:BEEP 1:V=RND 
M 

5010 "Gl" INPUT "Guess:";G:BEEP 1:K=K+l:IF G<>VWAIT :PRINT "Too ";@$(1+(G>V)):WAIT 0:GOTO "G1" 
5020 WAIT :PRINT USING "";"Right in';K:N=Nel:S=S+K :S2=S2+K*K:K=0:R$="Y": INPUT "Again? ";R$ 
5030 IF R$<>"N"LET V=RND M:GOTO "G1" 

5040 PRINT USING "###0.8##";"Mean";S/N:PRINT "Variance:";(S52-(S*S/N))/(N-1):END 
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MINOBOGGLE continued 


WORDSQUARE by C.P.Underwood 


Conputer writes 9*9 square of random letters. Join adjacent letters 
(horizontally, vertically, diagonally) to make words. Do not cross lines, 
do not re-use letters. Iwist and zigzag as required. Score 1 per letter 


for 2 and 3-letter words; 2 per letter for 4-letter words; 3 per letter 
for 5-letter words, and so on. Time limit: 3 minutes. 


6 CLEAR :TEXT :RANDOM :CSIZE 2:DIM W$(9,9)*1:FOR X=1TO 9:FOR Y=1TO 9:BEEP 1,1:W$(X,Y}=CHRS ( 
644+RND 26):NEXT Y:NEXT X 

7 "C"FOR X=1T0 9:FOR Y=1TO 9:LPRINT W$(X,Y);CHR$ 32;:NEXT Y:LF 1:NEXT X:LF 7 

8 PAUSE “tear off -":PAUSE “another copy - DEF C":PAUSE “start by DEF Z":END 

9 "Z"TIME =O:WAIT O:USING “###.##" 

10 CURSOR 10:PRINT 100*(TIME <.03)*TIME :BEEP (TIME >.03),90,90:GOTO 10 


GOLF by Tony Willman 


1 CLEAR :WAIT 150:PRINT "GOLF by T.Willman":FOR H=1T0 18:D=200+RND 200:P=INT (D/100):S=0 
2 EEEP 1:PRINT "Dist.";D;" /Par";P;"  Shots=";S:INPUT "Club? ";C:S=S+l 

3 SS=C*14+RND (C*5):D=ABS (D-SS):IF D>20THEN 2 

& BEEP 5,10:PRINT "Hole";H;" in";S;" shots":ST=ST+S:PT=PT+P:NEXT H 

5 FRINT "You went round in";ST;" shots":PRINT "You are";ST-PT;" over par" 


An alternative line 3 may make the game trickier: 
3: SS=C*74C*7*(C>2)4RND (C*5): D=ABS (D-SS): IF D>10*(C>3)4RND 13 THEN 2 


MEMORY GAME by David Rihoy 


1-4 players. RUN to start. Enter a number 1-26 in answer to prompts 

"lst" and "2nd". If the 2 LETTERS printed are the same, 1 point is scored. 
Key ENTER for score, DEF G for next player. Game restarts when all 
letters correctly matched. 


5 CLEAR =T-26:WAIT :OIM X$(1,T)*1:FOR Je=lTO T:X$(0,3)=CHR$ (64+9):X$(1,35)=x$(0,9):NCXT J:FOR 
ie 3=TTO ISTEP -1:BEEP 1,1:K=RND J:B$=X$(1,K):X$(1,K)=X$(1,9):X$(1,3)=B$:NEXT J:NEXT 1:BE 
sd a "S"INPUT "Player?";P: INPUT "lst?"3X: INPUT "2nd";Y:A$=X$(0,X):B$=X$(1,Y):PRINT A$,B$:2=(A$= 
* C$="4":Z=2Z*(AS<OC$) :@(P) =A(P)+1 :@(P+4) -O(P+4)+Z: IF ZLET X$(0,X)=C$:X$(1,¥)=C$ 

25 S=S+Z:PRINT "P1.";P;" has won";@(P+4);" in";@(P);" goes":GOTO (15-10*(S=T)) 


RANDOM RANDOM by C.P.Underwood 


Computer picks random number <1000, and displays a random number of 
random numbers each less than original random number. You are only 
allowed a random number of random guesses to discover the RANDOM NUMBER. 


1 RANDOM :BEEP 5:CLEAR :N=RND 1000:R=INT (54+RND (N/40)):PAUSE " - mew number!" 

2 W=45/(C+1):WAIT W:FOR I=1TO RND 7: PRINT RND N;:NEXT I:PRINT : INPUT G:C=C+1:GOTO 4-3*(C=R)+ 
(C<R)*SEN (G-N) 

3 BEEP 1,99:PRINT G;" is under - #";STR$ C;" goes":GOTO 2 

4 WAIT 250:BEEP 1,100:BEEP 1,90:PRINT G;" is correct in #";STR$ C;" goes":GOTO 1 

5 BEEP 1,77:PRINT G;" is over - #";STR$ C;" goes":GOTO 2 


CHEAT by John Warner 


Match numbers displayed by keying *. Outer numbers on screen indicate 
your score, computer's score. Inner numbers displayed are to be matched. 
Keying * when no match displays 'CHEAT'. 


1 DIM A(41):X=O0:FOR Y=1TO 4:FOR Z=1TO 10:X=X+l:A(X)=Z:NEXT Z:NEXT Y:P=50:Q=P:8=70:S$="CHEAT" 

2 FOR Z=110 40:Y=RND 40:A(0)=A(Y):A(Y)=A(Z):A(Z)=A(O):NEXT Z:FOR X=1T0 4O:IF B$="*"PRINT S$ 

3 WAIT B:PRINT P;" "SA(X)3"  "3A(Xel)3" "3 Q:BeB-1:IF A(X)=A(X+1) THEN LET A$SINKEY$ :GO 
SUB 5 

4 B$=INKEY$ :NEXT X:ON ERROR GOTO 3:B=B+35:RANDOM :GOTO 2 

5 WAIT B/2:1F A$="*"THEN PRINT "SNAP" :BEEP 2,99,99:P=P+2:0=Q- 1: RETURN 
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MINEFIELD by F.C.Odds 


H.M.S.STATUS (a frigate of the 1500 class) is steaming at full speed to 
the relief of Mafeking. An unscrupulous enemy hos mined the Baltic seas. 
However tne frigate is equipped with the latest mine-detection device, 
purchased from USA at the cost of scrapping the entire National Health 
Service. This emits a high-pitched tone when within 2 squares of a mine, 
and an even more piercing tone 1 square away. But NOT diagenally, only 
vertically and horizontally. This is because the ship is equippec with 

the latest technological advance in steering-gear (cost: 3 universities 

and the Brigade of Guards) and connot navigate diagonally. Enter at 
bottom of 10*10 grid, exit only at the top. Steer by the 4 number keys 

- 2-4-8 - 6 How quickly can you get through the minefield? There is 
1 mine per row: at Skill Level 2 there may be more than 1 mine on each 
row, and some of them could even explode without warning. 


10 
20 
25 
30 
40 
50 
60 
62 


470 


CLEAR :WAIT O 

POKE &7750,90,10,106,1,72,1,74,1,190,230,111,96,110,128,153,8 
POKE &7760,82,153,17,154,90,1,190,119,82,154 

CURSOR 7:PRINT “MINEFIELD!!"; 

CALL &7750 

DIM A$(5)*12,8$(5)*12,C$(5)*12,0$(6)*12,E$(6)*12,F$(1)*60 
A$(0)="7F414141414)":A$(1)="7F0202020202":A$(2)="7F 0404040404" 
A$(3)="7F0808080808":A$(4)="7F1010101010":A$(5)="7F 2020202020" 
B$(0)="7F4155495541":B$(1)="7F02160A1602" :B$(2)="7F 0414001404" 
B$(3)="7F081CO081C08":8$(4)="7F 1014181410" :8$(5)="7F 2034283420" 
C$(0)="7F4155495541":C$(1)="4614615549557F":0$(2)="414155497F 41" 
C$(3)="4$1461557F5541":C$(4)="41417F495541":0$(5) ="417F 55495541" 
D$(1)="7E0202020202":D$(2)="700404040404":D$(3)="780808080808" 
D$(4)="701010101010":D$(5)="602020202020" :0$(6) ="404040404040" 
E$(1)="7E02160A1602" :£$(2)="700414001404" :E$(3)="78081C081C08" 
E$(4)="701014181410":E$(5)="602034283420":E$(6) ="404054485440" 
E$(O)="7F 7F 7F 7F7F7F" 

"ANCLS +INPUT "HOW MANY PLAYERS? ";S:U=0:RR=0 

S=ABS INT S:IF S=OGOTO 80 

INPUT "Skill level? (1/2)"3SK:SK=SK-1 

IF SK<OOR SK>1GOTO 95 

FOR Z=110 S:WAIT O:RANDOM 

FOR X=3TO 12:@(X)=RND 10:NEXT X 

Q=3:PRINT "PLAYER ";Z;:BEEP 8:CLS 

INPUT "Start square (1-10)? ";P:CLS 

IF P<10R P>JOOR P<>INT PGOTO 130 

TIME =0 

"D"GOSUB 900 

F$=A$(0):G$=B$(0) 

GOSUB 950 

GOSUB 780 

CURSOR O:PRINT "Row";Q-2 

GOTO "C 

X=1 

AS=INKEY$ :IF A$<>""GOTO "M 

X=X+l:IF X<lLOGOSUB 780:GOTO 290 

GCURSOR 6*P+44:GPRINT A$(0); 

X21 

AS=INKEY$ :IF A$<>""GOTO "M 

X=X+l:I1F X<SGOSUB 780:GOTO 330 

GCURSOR 6*P444:GPRINT B$(0); 

GOTO 285 

"M"REASC INKEY$ :IF R<SOOR R>S6GOTO 330 

R=R-48:iF R/2<>INT (R/2)GOTO 285 

ON R/2G0TO el - lh i | 

"F'IF Q+1>12GOTO "E 

FOR Y=1TO $:GOSU8 900 

FS=A$(Y}:G$=B$(Y) 

GOSUB 950:GOSUB 780 

NEXT Y 
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MINEFIELD continued 
Q=0+1:G0TO "D 
"BY IF Q-1<3BEEP 1:GOTO 285 
FOR Y=5TO 1STEP -1:GOSUB 900 
F$=A$(Y):C$=B$(Y) 
GOSUB 950:GOSUB 780 
NEXT Y 
Q=Q-1:GOTO "D 
"LUIF P-l1=O0BEEP 1:GO0TO 285 
FOR Y=5TO ISTEP -1 
GCURSOR P*6+38+Y:GPRINT C$(Y); 
FOR X=1TO 20:NEXT X;:GOSUB 780 
NEXT Y 
P=P-1:GOTO "D 
"RUIF P+l=l1BEEP 1:GOTO 285 
FOR Y=1TO 5 
GCURSOR P*64+44+Y:GPRINT C$(Y); 
FOR X=1TO 20;NEXT X:GOSUB 780 
NEXT Y 
P=P+1:GOTO "D 
"E"T=STIME *100:GOSUB 780 
FOR Y=1TO 5:GOSUB 900 
F$=D$(Y):G$=E$(Y) 
GOSUB 950 
NEXT Y 
F $=D$(6):G$=E$(6):GOSUB 900:GOSUB 950 
POKE# &F007,0:BEEP 7:CLS 
PAUSE "You did it!!" 
PAUSE "It took you "3;T;" minutes" 
IF (T<RR)+(RR=O)LET RR=T:U=Z 
PAUSE "best time = "s;RR 
WAIT :PRINT "KEY <ENTER> TO CONTINUE" 
GOTO 860 
GCURSOR 115:PRINT USING "“###.##";100*TIME ;:USING :RETURN 
"X"FOR X=1TO 6 
GCURSOR 6*P+44:GPRINT E$(0); 
CALL &7764 
GCURSOR 6*P+44:GPRINT B$(0); 
CALL &7764 
NEXT X:CLS :POKE# &F007,0 
PAUSE "You hit a mine - SUNK!" 
NEXT Z:IF U=OGOTO 880 
WAIT :PRINT “Player ";U;" wins in";RR 
END 
F$(O)=""sF$(1)="":RETURN 
"C'X=0:1F @(Q)=PGOTO "x 
IF SK=1AND @(Q+1)=PGOTO "x 
IF @(Q+2)=POR @(Q-2)=POR @(Q)=P-20R @(Q)=P+2LET X=68 
IF SK=1LAND (@(Q+3)=POR. @(Q-1)=POR @(Q+1)=P-20R @(Q+1)=P+2)LET X=68 
IF @(Q+1)=POR @(Q-1)=POR @(Q)=P-10R @(Q)=P+1LET xX=66 
IF SK=lAND (@(Q+2)=POR @(Q+1)=P-10R @(Q+1)=P+1)LET X=66 
POKE# &F007,X:GOTO 285 
FOR X=1TO 5:IF X=PGOTO 960 
F$(0)=F$(0)4+F$:GOTO 965 
F$(O)sF$(O)4C$ 
NEXT X 
FOR X=67T0 10:IF X=PGOTO 980 
F$(1)=F$(1)+F$:GOTO 985 
F$(1)=F$(1)+6$ 
NEXT X 
GCURSOR SO:GPRINT F$(O);F$(1)3"7F"; 
RETURN 


STATUS 1 = 2877 
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